home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1998 April: Mac OS SDK / Dev.CD Apr 98 SDK2.toast / Development Kits (Disc 2) / ScriptX / Documentation / Code Examples from Docs / langguid / chap_01 / xmpl_05.sx < prev    next >
Encoding:
Text File  |  1996-05-21  |  859 b   |  39 lines  |  [TEXT/ttxt]
  1. --<<<
  2. -- Kaleida Labs, Inc.
  3. -- Field Guide to the ScriptX Language
  4. -- chapter 1, example 5
  5.  
  6. -- create a module to avoid naming conflicts
  7. module Scratch4 uses ScriptX end
  8. inModule Scratch4
  9.  
  10. class Canine ()
  11.     instance variables 
  12.         age, length, weight, sex, temperament
  13.     instance methods
  14.         method bark self -> print "makes a lot of noise" 
  15.         method sniff self -> print "sticks nose into things" 
  16.         method sleep self -> print "lazy dog sleeps all day" 
  17. end
  18.  
  19. class Pet (RootObject)
  20.     instance variables 
  21.         name, owner, breed, veterinarian, spayed
  22.     instance methods
  23.         method fetch self -> print "fetches a stick" 
  24. end
  25.  
  26. class PetDog (Pet, Canine)
  27. end
  28.  
  29. object snoopy (PetDog)
  30.     instance methods
  31.         method sleep self -> (
  32.             print "sleeps on top of his doghouse"
  33.             nextMethod self
  34.         )
  35.     settings name:"Snoopy", owner:"Charlie Brown", breed:"Beagle"
  36. end
  37. sleep snoopy
  38. -->>>
  39.